-- background: 2707 from stack: in.0
-- bmap block id: 17590
-- flags: 0000
-- background id: 0
-- name: Movies
----- HyperTalk script -----
on closeField
  if (number of this card) > 4 then calc
end closeField

on openCard
  if number of this cd > 4 then
    if hilite of btn "VHS" is true then
      put "VHS" into fld type
    else
      put "Beta" into fld type
    end if
  end if
  pass openCard
end openCard

on vClick
  set hilite of button "VHS" to not hilite of button "VHS"
  if hilite of button "VHS" is true then set hilite of button "beta" to false
end vClick

on bClick
  set hilite of button "beta" to not hilite of button "beta"
  if hilite of button "beta" is true then set hilite of button "VHS" to false
end bClick

on b500Click
  set hilite of button "beta" to false
  set hilite of button "VHS" to false
end b500Click


-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=38 right=64 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15032
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Num


-- part 6 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=12 top=116 right=314 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Movies


-- part 16 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=300 top=116 right=314 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Counter


-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=369 top=291 right=314 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect dissolve fast
  go prev card
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=402 top=291 right=313 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect dissolve fast
  go next card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=438 top=176 right=206 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to stack "Home"
end mouseUp




-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=24 top=58 right=79 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14845
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Theme


-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=433 top=287 right=321 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search
----- HyperTalk script -----
on mouseUp
  global itt
  search
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=438 top=249 right=275 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go first card
end mouseUp



-- part 41 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=411 top=103 right=120 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14925
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Time Left


-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=438 top=209 right=247 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  push card
  sort by field "num"
  sort numeric by field "num"
  pop card
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=411 top=150 right=169 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  global num
  NuCard
  put num+1 into fld "num"
  set name of this cd to "x" & fld "num"
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=402 top=58 right=79 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Time
----- HyperTalk script -----
on mouseUp
  FindTime
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=402 top=39 right=59 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Tape
----- HyperTalk script -----
on mouseUp
  global tape
  put empty into tape
  goTape
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=411 top=132 right=151 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
on mouseUp
  go second card
end mouseUp



-- part 53 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=108 right=120 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 6
-- style flags: 0
-- line height: 8
-- part name: Strip


-- part 51 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=97 top=31 right=49 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Type


-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=393 top=175 right=213 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 15844 / 15844
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  Answer "Please open back door of LaserWriter..." with "Ok"
  doMenu "Print Report..."
end mouseUp